home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Fun / Beer / breweries / card_26645.txt < prev    next >
Encoding:
Text File  |  1988-09-26  |  2.3 KB  |  109 lines
  1. -- card: 26645 from stack: in
  2. -- bmap block id: 4737
  3. -- flags: 0000
  4. -- background id: 22781
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   hide card field "f1"
  9.   hide card field "brewer"
  10.   hide card button ID 6
  11.   delete line 1 of card field "brewer"
  12. end OpenCard
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 0000
  18. -- rect: left=466 top=311 right=334 bottom=496
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 19162 / 19162
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Next
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   go to next card
  30. end mouseUp
  31.  
  32.  
  33. -- part 4 (field)
  34. -- low flags: 80
  35. -- high flags: 4002
  36. -- rect: left=229 top=258 right=276 bottom=429
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 3
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: brewer
  45.  
  46.  
  47. -- part 5 (field)
  48. -- low flags: 80
  49. -- high flags: 0000
  50. -- rect: left=229 top=236 right=253 bottom=424
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 3
  55. -- text size: 12
  56. -- style flags: 256
  57. -- line height: 16
  58. -- part name: f1
  59.  
  60.  
  61. -- part 6 (button)
  62. -- low flags: 80
  63. -- high flags: 8003
  64. -- rect: left=229 top=278 right=301 bottom=455
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Okay, It's Entered...find Brewery.
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   put card field "brewer" into brewtemp
  76.   go to next card
  77.   find brewtemp in background field ID 2
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 7 (button)
  83. -- low flags: 00
  84. -- high flags: 8003
  85. -- rect: left=350 top=312 right=334 bottom=450
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Find Brewer
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   ask "Brewery to Find:"
  97.   go to next card
  98.   find it in background field "brewer"
  99.   if the result is not empty then
  100.     answer "Brewery Not Found" with "AAGGHH!"
  101.     go to card 1
  102.   end if
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part contents for card part 5
  108. ----- text -----
  109. Brewery name??????????